SOHO - Exploring the Sun - 2003 Update/SOHO - Exploring the Sun - 2003 Update.iso/pc/data/main.dcr/scripts_76.ls

Text File | 2003-02-25 | 554 b | 22 lines

on UpdateVolume
  global global_volume
  if global_volume > 7 then
    set global_volume to 7
  end if
  if global_volume < 0 then
    set global_volume to 0
  end if
  set memb to "vol" & global_volume
  set the member of sprite 102 to member memb of castLib "buttons"
  set the soundLevel to global_volume
  if global_volume = 0 then
    if soundBusy(1) then
      puppetSound(1, 0)
    end if
  else
    if not soundBusy(1) and (the frame >= label("mm_prestart")) then
      puppetSound(1, member "Sohoprg" of castLib "audio")
    end if
  end if
end